home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 33 / Amiga Format AFCD33 (Issue 117, Dec 1998).iso / -seriously_amiga- / graphics / artpro_install / install < prev    next >
Text File  |  1998-09-07  |  6KB  |  334 lines
  1. ; ArtPRO installations Script
  2. ; © 1997 Defect Softworks All rights reserved.
  3. ; May only be distributed within the ArtPRO package
  4. ; 
  5. ; Written by Frank Pagels /DFT
  6. ; Date: 27/Aug/98
  7.  
  8. (set falsekickmsg    "You need at least OS 3.00 to run ArtPRO!")    ;!!!
  9.  
  10. (set OS_VER (/ (getversion) 65536) )
  11.  
  12. (if(< OS_VER 39)
  13.   (abort falsekickmsg)
  14. )
  15.  
  16. (set cpu (database "cpu"))    ;check CPU Type
  17.  
  18. (if (or (= cpu 68020) (= cpu 68030)) (set #cpu 0))
  19. (if (= cpu 68040) (set #cpu 1))
  20. (if (> (exists ("libs:68060.library")) 0) (set #cpu 2) )
  21.  
  22. (set #doclang 0)
  23. (if (= @language "deutsch") (set #doclang 1))
  24.  
  25. (set progdir1
  26.  (askdir (prompt "In wich drawer should ArtPRO be installed?\n (a drawer will be created)")
  27.    (help @askdir-help)
  28.    (DEFAULT @default-dest)))
  29.  
  30. (    (makedir (tackon progdir1 "ArtPRO")) 
  31.     (copyfiles (source "Icons/ArtPRO.info")
  32.     (dest progdir1))
  33.  
  34.     (set progdir (tackon progdir1 "ArtPRO"))
  35. )
  36. ;--------------------------------------------------------------------------
  37. (
  38.     (copyfiles (source "ArtPRO")
  39.     (dest progdir))
  40.  
  41.     (copyfiles (source "installdata/ArtPRO.info")    ;!!!
  42.     (dest progdir))
  43.  
  44. )
  45.  
  46. ;------ Install Loader -------
  47. (
  48.     (makedir (tackon progdir "ALoaders"))
  49.     (copyfiles (source "Aloaders")
  50.     (dest (tackon progdir "ALoaders"))
  51.     (all))
  52. )
  53.  
  54. ;------ Install Saver --------
  55. (
  56.     (makedir (tackon progdir "ASavers"))
  57.     (copyfiles (source "ASavers")
  58.            (dest (tackon progdir "ASavers"))
  59.            (all)
  60.     )
  61.  
  62. )
  63.  
  64. ;------ Install Operator --------
  65. (
  66.     (makedir (tackon progdir "AOperators"))
  67.     (copyfiles (source "AOperators")
  68.            (dest (tackon progdir "AOperators"))
  69.            (all)
  70.     )
  71.  
  72. )
  73.  
  74. ;----- Copy needed Librarys 
  75.  
  76.     (copylib
  77.     (prompt "Copy ReqTools.library")
  78.     (help @copylib-help)
  79.     (source "libs/reqtools.library")
  80.     (dest "Libs:")
  81.     (confirm)
  82.     )
  83.  
  84.     
  85.     (Set #WhatLib
  86.     (cat  "Which version of the render.library do you want to install now ?"))
  87.  
  88.     (set InstallLib
  89.         (askchoice
  90.             (prompt #WhatLib)
  91.             (help @askoptions-help)
  92.             (choices
  93.                 "020"        ;Bit 0
  94.                 "040"        ;Bit 1
  95.                 "060")        ;Bit 2
  96.             (default #cpu)
  97.         )
  98.     )
  99.    
  100. (
  101.     (if (= InstallLib 0)
  102.  
  103.        (copylib 
  104.            (prompt "Copy Render.library")
  105.         (help @copylib-help)
  106.              (source "libs/render.library_68020")
  107.         (dest "Libs:")
  108.         (newname "render.library")
  109.         (confirm)
  110.        )
  111.     )
  112.  
  113.  
  114.  
  115.     (if (= InstallLib 1)
  116.  
  117.        (copylib 
  118.            (prompt "Copy Render.library")
  119.         (help @copylib-help)
  120.              (source "libs/render.library_68040")
  121.         (dest "Libs:")
  122.         (newname "render.library")
  123.         (confirm)
  124.        )
  125.     )
  126.          
  127.  
  128.  
  129.     (if (= InstallLib 2)
  130.  
  131.        (copylib 
  132.            (prompt "Copy Render.library")
  133.         (help @copylib-help)
  134.              (source "libs/render.library_68060")
  135.         (dest "Libs:")
  136.         (newname "render.library")
  137.         (confirm)
  138.        )
  139.     )
  140.     
  141. )
  142.  
  143. ;----------------------------------------------------------------
  144.     (Set #WhatLib
  145.     (cat  "Which version of the guigfx.library do you want to install now ?"))
  146.  
  147.     (set InstallLib
  148.         (askchoice
  149.             (prompt #WhatLib)
  150.             (help @askoptions-help)
  151.             (choices
  152.                 "020"        ;Bit 0
  153.                 "040"        ;Bit 1
  154.                 "060"        ;Bit 2
  155.                 "020+FPU")    ;Bit 3
  156.             (default #cpu)
  157.         )
  158.     )
  159.    
  160. (
  161.     (if (= InstallLib 0)
  162.  
  163.        (copylib 
  164.            (prompt "Copy Guigfx.library")
  165.         (help @copylib-help)
  166.              (source "libs/guigfx.library")
  167.         (dest "Libs:")
  168.         (newname "guigfx.library")
  169.         (confirm)
  170.        )
  171.     )
  172.  
  173.  
  174.     (if (= InstallLib 1)
  175.  
  176.        (copylib 
  177.            (prompt "Copy Guigfx.library")
  178.         (help @copylib-help)
  179.              (source "libs/guigfx.library_68040")
  180.         (dest "Libs:")
  181.         (newname "guigfx.library")
  182.         (confirm)
  183.        )
  184.     )
  185.          
  186.  
  187.     (if (= InstallLib 2)
  188.  
  189.        (copylib 
  190.            (prompt "Copy Guigfx.library")
  191.         (help @copylib-help)
  192.              (source "libs/guigfx.library_68060")
  193.         (dest "Libs:")
  194.         (newname "guigfx.library")
  195.         (confirm)
  196.        )
  197.     )
  198.  
  199.     (if (= InstallLib 3)
  200.  
  201.        (copylib 
  202.            (prompt "Copy Guigfx.library")
  203.         (help @copylib-help)
  204.              (source "libs/guigfx.library_FPU")
  205.         (dest "Libs:")
  206.         (newname "guigfx.library")
  207.         (confirm)
  208.        )
  209.     )
  210.     
  211. )
  212.  
  213. ;----- copy Dokumentation ------
  214.  
  215. (
  216.     (Set #Whatdoc
  217.     (cat  "What ArtPRO documentation would you like to install?\n"))
  218.  
  219.     (set Installdoc
  220.         (askchoice
  221.             (prompt #Whatdoc)
  222.             (help @askoptions-help)
  223.             (choices
  224.                 "English"        ;Bit 0
  225.                 "German")        ;Bit 1
  226.             (default #doclang)
  227.         )
  228.     )
  229.    
  230.     (set docdir
  231.         (askdir (prompt "Select a drawer for the Guide:")
  232.         (help @askdir-help)
  233.         (DEFAULT progdir)))
  234.  
  235.  
  236.     (if (= Installdoc 0)
  237.         (
  238.             (copyfiles (source "docs/english/ArtPRO.guide")        ;!!!
  239.                 (dest docdir))
  240.  
  241.             (copyfiles (source "installdata/ArtPRO.guide.info")    ;!!!
  242.                 (dest docdir))
  243.         )
  244.     )
  245.  
  246.     (if (= Installdoc 1)
  247.  
  248.                (copyfiles (source "docs/deutsch/ArtPRO.guide")
  249.                 (dest docdir))
  250.  
  251.             (copyfiles (source "docs/deutsch/ArtPRO.guide.info")
  252.                 (dest docdir))
  253.  
  254.     )
  255.  
  256.  
  257. )
  258.  
  259. ;---- Kopiere Icons ----
  260.  
  261. (
  262.     (makedir (tackon progdir "Icons"))
  263.     (copyfiles (source "Icons")
  264.         (dest (tackon progdir "Icons"))
  265.         (all))
  266.     (copyfiles (source "installdata/Icons.info")    ;!!!
  267.         (dest progdir))
  268.  
  269. )
  270.  
  271.  
  272. (
  273.   (set appdir
  274.   (askdir (prompt "In wich drawer should the external AppIcon be installed?")
  275.    (help @askdir-help)
  276.    (DEFAULT progdir)))
  277.  
  278.      (copyfiles (source "Installdata/AppIcon.info")
  279.         (dest appdir)
  280.     )
  281.         (Tooltype (dest (tackon progdir "ArtPRO"))
  282.         (Settooltype "APPICON" (tackon appdir "AppIcon"))
  283.     )
  284. )
  285.  
  286. (set @default-dest progdir)
  287.  
  288. ;-- lege tmp dir fest
  289.   (set tmpdir
  290.   (askdir (prompt "Wich drawer should be used for the undo files ?")
  291.    (help @askdir-help)
  292.    (DEFAULT "T:")))
  293.   
  294.     (Tooltype (dest (tackon progdir "ArtPRO"))
  295.     (Settooltype "TMPDIR" tmpdir ))
  296.  
  297.  (set level
  298.     (askstring (prompt "Enter number of undo levels")
  299.     (help @askstring-help)
  300.     (DEFAULT "3")))
  301.  
  302.     (Tooltype (dest (tackon progdir "ArtPRO"))
  303.     (Settooltype "UNDOLEVEL" level ))
  304.  
  305. (copyfiles (source "Orderform.doc")
  306.     (dest progdir)
  307. )
  308.  
  309. (copyfiles (source "Orderform.dok")
  310.     (dest progdir)
  311. )
  312.  
  313. (makedir "ENV:ArtPRO")
  314. (makedir "ENVARC:ArtPRO")
  315.  
  316.  
  317. (if (<> (exists ("sys:classes/codecs/jpeg.codec")) 1)  
  318.  (
  319.    (Set #Whatdoc
  320.     ( cat "Now installing the Jpeg Codec by\n Cristoph Feck. It is needed for\n the Jpeg loader/saver.\n")
  321.    )
  322.      (Message   #whatdoc)
  323.                 
  324.  
  325.    (set @execute-dir "jpeg-cdc_dist")
  326.    (run (safe) "sys:utilities/installer SCRIPT install APPNAME Jpeg_Codec")
  327.  )
  328. )
  329.  
  330. (exit "Note: ArtPRO is Shareware!\n\n"
  331.       "Render.library and Guigfx.library\n"
  332.       "are (C) by Timm Müller!\n\n"
  333.       "Enjoy this!") 
  334.